home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / editors / dbuplus / gaugeind.ch < prev    next >
Encoding:
Text File  |  1992-09-01  |  1.0 KB  |  25 lines
  1. /***
  2. *  GaugeInd.ch
  3. *  Sample program to demonstrate the use of a bar progress gauge
  4. *  with an indexing system.
  5. *
  6. *  Copyright (c) 1992, Computer Associates Corp.  All rights reserved.
  7. *  Daniel Neil
  8. *
  9. */
  10.  
  11.  
  12. #command INDEX ON <key> TO <(file)> [<u: UNIQUE>]                       ;
  13.                GAUGE [@ <top>, <left>, <bottom>, <right>]               ;
  14.                      [COLOR <color>]                                    ;
  15.                      [STEP <step>]                                      ;
  16.       => GaugeIndex(                                                    ;
  17.                         <(file)>, <"key">, <{key}>,                     ;
  18.                         if( <.u.>, .t., NIL ),                          ;
  19.                         <top>, <left>, <bottom>, <right>,               ;
  20.                         <color>,<step>                                  ;
  21.                    )
  22.  
  23. #COMMAND DEFAULT <xprVar> TO <expValue> =>                              ;
  24.          <xprVar> := IF(<xprVar> == NIL,<expValue>,<xprVar>)
  25.